home *** CD-ROM | disk | FTP | other *** search
- object frmAddress: TfrmAddress
- Left = 369
- Top = 323
- Width = 185
- Height = 256
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSizeToolWin
- Caption = 'Addresses'
- Color = clBtnFace
- DragKind = dkDock
- DragMode = dmAutomatic
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object pnlList: TPanel
- Left = 0
- Top = 0
- Width = 177
- Height = 216
- Align = alClient
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 0
- object AddressTree: TElTree
- Left = 0
- Top = 19
- Width = 177
- Height = 197
- Align = alClient
- AlwaysKeepFocus = True
- AutoLookup = True
- BackgroundType = bgtVertGradient
- BorderStyle = bsNone
- DeselectChildrenOnCollapse = True
- DoInplaceEdit = False
- DragAllowed = True
- DragTrgDrawMode = ColorRect
- ExpandOnDblClick = False
- FlatFocusedScrollbars = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- GradientStartColor = clWhite
- GradientEndColor = 16771306
- HeaderHeight = 20
- HeaderHotTrack = False
- HeaderSections.Data = {
- F4FFFFFF0100000008C0200601000000FFFFFFFF000101010100636F3C000000
- 0A0000001027000001000000F42C9B020000000004005C44000000000000016F
- 0000000000000000000100000000000014C1200648000000433A5C446174615C
- 506F636F335C464D73672E44464D000038C1200638C1200624000000433A5C44
- 6174615C506F636F335C464D73672E4490000000080000004164647265737300
- 01000000000000000000000000}
- HeaderFlat = True
- HideHintOnTimer = True
- HideSelectColor = clGray
- HideSelectTextColor = clWhite
- HideSelection = True
- HorzScrollBarStyles.MinThumbSize = 16
- HorzScrollBarStyles.NoSunkenThumb = True
- HorzScrollBarStyles.ShowTrackHint = False
- HorzScrollBarStyles.Width = 21
- HorzScrollBarStyles.ButtonSize = 21
- HorzScrollBarStyles.UseXPThemes = False
- Images = ImageS
- ItemIndent = 10
- LineHeight = 16
- LinesColor = clBtnShadow
- LinesStyle = psSolid
- LineHintMode = shmNone
- LockHeaderHeight = True
- OwnerDrawByColumn = False
- ParentFont = False
- ParentShowHint = False
- PopupMenu = PopupAddress
- ScrollBackground = True
- ScrollTracking = True
- ShowHint = False
- ShowLeafButton = False
- ShowLines = False
- StoragePath = 'Tree'
- SortUseCase = False
- TabOrder = 0
- TabStop = True
- Tracking = False
- UnderlineTracked = False
- UseCustomScrollBars = False
- VerticalLines = True
- VertScrollBarStyles.MinThumbSize = 8
- VertScrollBarStyles.NoSunkenThumb = True
- VertScrollBarStyles.ShowTrackHint = True
- VertScrollBarStyles.Width = 21
- VertScrollBarStyles.ButtonSize = 21
- VertScrollBarStyles.UseXPThemes = False
- VirtualityLevel = vlTextAndStyles
- UseXPThemes = False
- TextColor = clBtnText
- BkColor = clBtnFace
- OnHeaderColumnClick = AddressTreeHeaderColumnClick
- OnHeaderLookup = AddressTreeHeaderLookup
- OnItemPreDraw = AddressTreeItemPreDraw
- OnItemExpand = AddressTreeItemExpand
- OnItemCollapse = AddressTreeItemCollapse
- OnCompareItems = AddressTreeCompareItems
- OnVirtualTextNeeded = AddressTreeVirtualTextNeeded
- OnVirtualHintNeeded = AddressTreeVirtualHintNeeded
- OnVirtualValueNeeded = AddressTreeVirtualValueNeeded
- OnVirtualStyleNeeded = AddressTreeVirtualStyleNeeded
- OnDragDrop = AddressView1DragDrop
- OnDragOver = AddressView1DragOver
- OnMouseMove = AddressTreeMouseMove
- OnDblClick = AddressTreeDblClick
- OnKeyPress = AddressView1KeyPress
- end
- object PnlTop: TElPanel
- Left = 0
- Top = 0
- Width = 177
- Height = 19
- BackgroundType = bgtHorzGradient
- GradientEndColor = 16741719
- GradientStartColor = 16750722
- GradientSteps = 64
- Align = alTop
- BevelOuter = bvNone
- UseXPThemes = False
- TabOrder = 1
- DockOrientation = doNoOrient
- DesignSize = (
- 177
- 19)
- object DivLine: TShape
- Left = 0
- Top = 18
- Width = 177
- Height = 1
- Align = alBottom
- end
- object BtnClose: TElGraphicButton
- Left = 160
- Top = 2
- Width = 14
- Height = 14
- Cursor = crDefault
- MoneyFlat = True
- MoneyFlatInactiveColor = clGray
- MoneyFlatActiveColor = clBlack
- MoneyFlatDownColor = clRed
- Layout = blGlyphRight
- NumGlyphs = 1
- ShadowFollowsColor = False
- ShadowsUseCustom = True
- ShadowBtnHighlight = clYellow
- ShadowBtnShadow = clBlack
- ShadowBtnDkShadow = 33023
- LinkStyle = [fsUnderline]
- ThinFrame = True
- UseXPThemes = False
- Caption = 'X'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnCloseClick
- Anchors = [akTop, akRight]
- DockOrientation = doNoOrient
- end
- object BtnPop: TElPopupButton
- Left = 1
- Top = 2
- Width = 103
- Height = 16
- Cursor = crDefault
- DrawDefaultFrame = False
- PullDownMenu = MenuBooks
- PopupPlace = ppRight
- AdjustSpaceForGlyph = False
- Flat = True
- LinkStyle = [fsUnderline]
- NumGlyphs = 1
- ShowFocus = False
- UseArrow = True
- ThinFrame = True
- Transparent = True
- ShowBorder = False
- UseXPThemes = False
- Caption = 'Address'
- TabStop = False
- TabOrder = 0
- Color = clBtnFace
- ParentColor = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = BtnPopClick
- DockOrientation = doNoOrient
- DoubleBuffered = False
- end
- end
- end
- object PopupAddress: TPopupMenu
- OnPopup = PopupAddressPopup
- Left = 24
- Top = 154
- object NewMessage1: TMenuItem
- Caption = 'New &Message'
- Default = True
- OnClick = NewMessage1Click
- end
- object MenuFilter: TMenuItem
- Caption = '&Quick Filter...'
- OnClick = MenuFilterClick
- end
- object NewAddress1: TMenuItem
- Caption = 'New Address...'
- OnClick = NewAddress1Click
- end
- object NewGroup1: TMenuItem
- Caption = 'New Group...'
- OnClick = AddNewGroup
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object CopyMenu: TMenuItem
- AutoHotkeys = maManual
- Caption = 'C&opy To'
- end
- object MoveMenu: TMenuItem
- AutoHotkeys = maManual
- Caption = 'Mov&e To'
- end
- object N8: TMenuItem
- Caption = '-'
- end
- object View1: TMenuItem
- Caption = '&View'
- object MenuViewNick: TMenuItem
- Caption = 'By &Nick'
- Checked = True
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object MenuViewName: TMenuItem
- Caption = 'By First Last'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object MenuViewLast: TMenuItem
- Caption = 'By Last, First'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object MenuViewEmail: TMenuItem
- Caption = 'By &E-mail'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object N13: TMenuItem
- Caption = '-'
- GroupIndex = 1
- end
- object MenuOneLineDisplay: TMenuItem
- Caption = 'One-line Display'
- GroupIndex = 2
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object MenuOneLineDisplayC: TMenuItem
- Caption = 'One-line Display (composite)'
- GroupIndex = 2
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object MenuTwoLineDisplay: TMenuItem
- Caption = 'Two-line Display'
- GroupIndex = 2
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- object MenuFourLineDisplay: TMenuItem
- Caption = 'Four-line Display'
- GroupIndex = 2
- RadioItem = True
- OnClick = MenuViewNickClick
- end
- end
- object Sort1: TMenuItem
- Caption = 'Sort'
- object MenuSortFirst: TMenuItem
- Caption = 'By First Name'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- object MenuSortLast: TMenuItem
- Caption = 'By Last Name'
- Checked = True
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- object MenuSortCompany: TMenuItem
- Caption = 'By Company'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- object MenuSortDept: TMenuItem
- Caption = 'By Department'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- object N14: TMenuItem
- Caption = '-'
- GroupIndex = 1
- end
- object MenuSortFull: TMenuItem
- Caption = 'By Full name'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- object MenuSortNick: TMenuItem
- Caption = 'By Nickname'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- object MenuSortEmail: TMenuItem
- Caption = 'By Email'
- GroupIndex = 1
- RadioItem = True
- OnClick = MenuSortFirstClick
- end
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object CopyName1: TMenuItem
- Caption = 'Copy &Name'
- OnClick = CopyName1Click
- end
- object CopyEmailAddress1: TMenuItem
- Caption = '&Copy E-mail'
- OnClick = CopyEmailAddress1Click
- end
- object CopyNameEmail: TMenuItem
- Caption = 'Copy N&ame and E-mail'
- OnClick = CopyNameEmailClick
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object SetasFavourite1: TMenuItem
- Caption = 'Make V.I.P.'
- OnClick = SetasFavourite1Click
- end
- object SetasNonFavourite1: TMenuItem
- Caption = 'Remove V.I.P. Status'
- OnClick = SetasFavourite1Click
- end
- object StyledPreference1: TMenuItem
- Caption = 'Styled Preference'
- object PrefersStyled1: TMenuItem
- Caption = 'Prefers Styled Messages'
- OnClick = PrefersStyled1Click
- end
- object PrefersPlain1: TMenuItem
- Caption = 'Prefers Plain Messages'
- OnClick = PrefersStyled1Click
- end
- end
- object N11: TMenuItem
- Caption = '-'
- end
- object DeleteAddress1: TMenuItem
- Caption = '&Delete Address'
- ShortCut = 46
- OnClick = DeleteAddress1Click
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object EditAddress1: TMenuItem
- Caption = '&Properties...'
- ShortCut = 32781
- OnClick = EditAddress1Click
- end
- end
- object PopupLists: TPopupMenu
- OnPopup = PopupListsPopup
- Left = 62
- Top = 154
- object AddAddresstMenu: TMenuItem
- Caption = 'Add Address to Address &Book'
- OnClick = AddAddresstMenuClick
- end
- object NewMessageTo1: TMenuItem
- Caption = '&New Message To...'
- OnClick = NewMessageTo1Click
- end
- object QuickFilter1: TMenuItem
- Caption = '&Quick Filter...'
- OnClick = QuickFilter1Click
- end
- object N10: TMenuItem
- Caption = '-'
- end
- object MenuInsert: TMenuItem
- Caption = 'Insert Favourite Address'
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object AddToListMenu: TMenuItem
- Caption = 'Add Address to Group'
- end
- object RemoveFromListMenu: TMenuItem
- Caption = 'Remove Address from Group'
- end
- object MenuReport: TMenuItem
- Caption = 'Report on Address...'
- OnClick = MenuReportClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Undo1: TMenuItem
- Caption = '&Undo'
- OnClick = Undo1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Cut1: TMenuItem
- Caption = 'Cu&t'
- OnClick = Cut1Click
- end
- object Copy1: TMenuItem
- Caption = '&Copy'
- OnClick = Copy1Click
- end
- object Paste1: TMenuItem
- Caption = '&Paste'
- OnClick = Paste1Click
- end
- object Delete1: TMenuItem
- Caption = '&Delete'
- OnClick = Delete1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object SelectAll1: TMenuItem
- Caption = 'Select &All'
- OnClick = SelectAll1Click
- end
- end
- object ImageS: TImageList
- Left = 110
- Top = 134
- end
- object MenuBooks: TPopupMenu
- AutoHotkeys = maManual
- Left = 50
- Top = 14
- end
- end
-